home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 081-090 / amok84 / reqtools_2.1d / glue.lha / Glue / SAS-C / src / reqtools.i < prev    next >
Text File  |  1991-08-25  |  876b  |  31 lines
  1. ****************************************************
  2. *                                                  *
  3. *       ReqTools linkable library code             *
  4. *       (for SAS/C)                                *
  5. *                                                  *
  6. *       reqtools.lib / reqtoolsnb.lib              *
  7. *                                                  *
  8. *       Copyright (c) 1991 by Nico François        *
  9. *                                                  *
  10. ****************************************************
  11.  
  12.     IFND LIBRARIES_REQTOOLS_LIB_I
  13.     include "libraries/reqtools_lib.i"
  14.     ENDC
  15.  
  16.     XREF    _ReqToolsBase
  17.  
  18. GETRTBASE    MACRO
  19.     IFD SMALL_CODE
  20.     move.l    _ReqToolsBase(a4),a6    ; If a4 addressing...
  21.     ENDC
  22.     IFD LARGE_CODE
  23.     move.l    _ReqToolsBase,a6    ; If no a4 addressing...
  24.     ENDC
  25.     IFND SMALL_CODE
  26.     IFND LARGE_CODE
  27.     moveq.l #12323,a0    ; Cause an error!
  28.     ENDC
  29.     ENDC
  30.     ENDM
  31.